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Abstract. Interaction nets are a graphical formalism inspired by Linear Logic proof-nets 
often used for studying higher order rewriting e.g. /3-reduction. Traditional presentations 
of interaction nets are based on graph theory and rely on elementary properties of graph 
theory. We give here a more explicit presentation based on notions borrowed from Girard's 
Geometry of Interaction: interaction nets are presented as partial permutations and a 
composition of nets, the gluing, is derived from the execution formula. We then define 
contexts and reduction as the context closure of rules. We prove strong confluence of 
the reduction within our framework and show how interaction nets can be viewed as the 
quotient of some generalized proof-nets. 



Interaction nets were introduced by Yves Lafont in [Laf90] as a way to extract a model 
of computation from the well-behaved proof-nets of multiplicative linear logic. They have 
since been widely used as a formalism for the implementation of reduction strategies for 
the A-calculus, providing a pictorial [[] way to do explicit substitution [Mac98l [MP98] |Lip03| 
and implement optimal reduction [AGL92]. 

Interaction nets are easy to present: a net is made of cells 



with a fixed number of connection ports, depicted as big dots on the picture, one of which is 
distinguished and called the principal port of the cell, and of free ports, and of wires between 
those ports such that any port is linked by exactly one wire. Then we define reduction on 
nets by giving rules of the form 
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^By putting a visual emphasis on occurrences of a variable, interaction nets allow a formal reasoning 
while not being as cumbersome as indices. 



1. Introduction 






DOI:10.2168/LMCS-6 (4:6) 2010 



© Creative Commons 



© M. de Falco 



2 



M. DE FALCO 



where the two cells in the left part are linked by their principal ports and the box in the 
right part is a net with the same free ports as the left part. Such a rule can be turned into 
a reduction of nets: as soon as a net contains the left part we replace it with the right part. 

Even though this definition is sufficient to work with interaction nets, it is too limited 
to reason on things like paths or observational equivalence. One of the main issues comes 
from the fact that we do not really know what a net is. The situation is quite similar for 
graphs: it is the author belief that we cannot study them relying on drawings only without 
being deceived by our intuition. Thus, we are inclined to give a precise definition of a graph 
as a binary relation or as a set of edges. 

The main issue to give such a definition for interaction nets is that it should cope with 
reduction. As an example consider a graph-like construction over ports and a rule 

Can it be applied to the interaction net ^s^>— <^2^* ? If we are rigorous the left part of 

the rule is not exactly contained in this net as ~ is not contained in . Perhaps we 
could consider this last wire as composed of three smaller ones and two temporary ports 
like in (~*~* and the whole net after reduction would be ^ *' . But then, to 

get back a real interaction nets we would have to concatenate all those wires and erase the 
temporary ports, which would give us the net ^y" - * . We will refer to this process of wire 
concatenation as port fusion. 

There are many works giving definitions of interaction nets giving a rigorous description 
of reduction. Nevertheless, they all share a common point: they deal either implicitly or 
externally with port fusion. In the seminal article [LafQQ] a definition of nets as terms with 
paired variables is given, it is further refined in [FM99] . In this framework an equivalence 
relation on variables deals with port fusion. In [PinOOj a concrete machine is given where 
the computation of the equivalence relation is broken into many steps. A rigorous approach 
sharing some tools with ours is given in |Vau07j . port fusion is done there by an external 
port rewriting algorithm. 

Therefore, we raise the following question: can we give a definition of interaction nets 
allowing a simple and rigorous description of reduction encompassing port fusion, and upon 
which we can prove results like strong confluence? This is the aim of this paper. 

Our proposition is based on the following observation. When we plug the right part 
of a rule in a net, new wires are defined based on a back and forth process between the 
original net and this right part. Such kind of interaction is key to the geometry of interaction 
(Gol) [Gir89] or game semantics [AJM94, HO00J. The untyped nature of interaction nets 
makes the former a possible way to express them. To be able to do so we need to express 
an interaction net as some kind of partial permutation and use a composition based on the 
so-called execution formula. Such a presentation of multiplicative proof-nets has been made 
by Jean- Yves Girard in [Gir87j . If we try to think about the fundamental actions one needs 
to be able to do on interaction nets, it is quite clear that we can distinguish a wire action 
consisting in going from one port to another along a wire and the cell action consisting 
in going from one cell port to another inside the same cell. Those two actions lead to the 
description of a net as a pair of permutations. One might ask whether it is possible in some 
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case to faithfully combine this pair in only one permutation, a solution to this question is 
what one could call a Gol. 

The issue of port fusion is not inherent to interaction nets and can be found in other 
related frameworks. Diagram rewriting [L af03] uses a compact-closed underlying category 
allowing mathematically the straightening of wires. There are strong links between this 
approach and ours, for example the characterization of the free compact-closed category 
over a category given in [KL80] shares a lot of common techniques with our approach. It is 
not surprising to find such link as compact-closed categories are unavoidable when dealing 
with geometry of interaction. Indeed they provide - through the Int construction of Joyal, 
Street and Verity (JSV96] - the categorical framework to interpret Gol [AJ92| IHS06] . What 
is different in our work, is that we stay at a syntactical level, thus, providing a rigorous 
syntax for writing and reducing programs. 

This paper is organized as follows. In Section 2 we present the mathematical tools that 
we are going to use. In Section 3 we define the statics of interaction nets, in Section 4 basic 
tools for handling them and in Section 5 we present their dynamics. In Section 6 we draw 
explicit links between interaction nets and proof-nets. In Section 7 we present a categorical 
double-pushout approach to net rewriting. In Section 8 we briefly discuss implementation 
of the previous definitions. 

2. Permutations and partial injections 

We give here the main definitions and constructions that are going to be central to 
our realization of interaction nets. Those definitions are standard in the partial injections 
model of geometry of interaction [Gir87t IDR95] or in the definition of the traced monoidal 
category Plnj |HS06| . 

2.1. Permutations. We recall that a permutation of a set E is any bijection acting on 
E and we write &(E) for the set of these permutations. When E is finite, which we will 
assume from here, for a given a £ &(E) we call order the least integer n such that a n = id>E, 
for x £ E we write Orb a (x) = {a l {x) \ i £ N} and we call it the orbit of x, we write Orbs(cr) 
for the orbits of a. If o is an orbit we write |o| for its size. 

We write (ci, . . . , c n ) for the permutation sending a to Cj+i, for i < n, c n to c\ and 
being the identity elsewhere, we call it a cycle of length n which is also its order. Any 
permutation is a compound of disjoint cycles. 

Let a be a permutation of E and C any set, we say that a is labelled by C if we have 
a function l a : Orbs(cr) — > C. We say that a has pointed orbits if it is labelled by E and 
Vo € Orbs(cr) we have l<j(o) £ o. Remark that an orbit is a sub-cycle and thus, having 
pointed orbits means that we have chosen a starting point in those sub-cycles. 

2.2. Partial injections. A partial injection (of integers) f is a bijection from a subset 
dom(/) of N, called its domain, to a subset codom(/) of N, called its codomain. We write 
/ : A —» B to say that / is any partial injection such that dom(/) = A and codom(/) = B. 
We write /* for the inverse of this bijection viewed as a partial injection. 

We call partial permutation a partial injection / such that dom(/) = codom(/). 
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D 




A B 
Figure 1. Representation of Ex(f,g) with the notations of proposition 



2.1 



2.3. Execution. Let / be a partial injection and E' , F' C N. We write / \p, for the partial 
injection of domain {x G E' n dom/ | f(x) G i 7 '} and such that / \pi(x) = f(x) where it is 
defined. We have 

If E' = F' we write f\ E > = f \%- 

When dom(/) n dom(g) = and codom(/) n codom(g) = 0, we say that / and g are 
disjoint and we define the sum / + g and the associated refining order -< as expected. We 
have dom(/ + g) = dom(/) ttJ dom(g) where l±J is the disjoint union. 



Proposition 2.1. Let f : A U B -» C W D and g : D 

f 



B a situation depicted by the 



following diagram 



A\£B 



i) For all n G N ; the partial injection from A to C 

Ex n (/, g) = f\£ + (fgf) tc + • • • + (fisfT) \c 

is well defined. 

ii) (Ex n (/, 5 r ))neN * s an increasing sequence of partial injections with respect to -<, whose 
limit, the increasing union, is noted Ex(f,g). 

iii) 7/dom(/) is finite the sequence (Ex n (/, g)) n is stationary and 

Ex(f,g):A^C 

Fig. [T] gives a graphical presentation of execution. 
Proof. 

i) To assert the validity of the sum all we have to have show is that Vi 7^ j G N : 

(f(gfy)(A)n(f(gfy)(A)nC = 

if(gf)T\c) n (figfyy^c) n A = 

Suppose there is an x G (f{gf) l ){A) n (f(gfy)(A) n C, we set y and z e A such 
that x = f(gf) l (y) = f(gfy(z). We can further suppose that i < and we have 
y = (gfy~ l (z) G -B, which is contradictory as y G ^4 and ^4 n B = 0. 

The other equality is proved in the same way. 

ii) Let n < m G N and x G dom(Ex n (/, g)), by definition of the sum there exists a 
unique k such that Ex n (f, g)(x) = (f(gf) k )(x). But then x G dom(Ex OT (/, g)) and 



AN EXPLICIT FRAMEWORK FOR INTERACTION NETS 



5 



the uniqueness of k asserts that Ex m (f,g)(x) = (f(gf) k )(x). Thus, Ex m (f,g) is a 
refinement of Ex n (f,g). 
iii) Suppose there is a x G A— dom(Ex(/, g)), then we should have for all k, (f{gf) k ){x) G D 
or else Ex(f,g)(x) would be defined. But D being finite, there exists n < m such that 
(f{gf) n ){x) = (f(gf) m ){x) and we get x = (gf) m ~ n (x) G B which is contradictory. A 
simple argument on cardinal show then that codom(Ex(/, g)) = C. □ 

Theorem 2.2 (Associativity of execution). 

h 



Let A ttl B ttl C 




» D ttl E ttl F be three partial injections. We have Vn G N 



Ex n (Ex n (/,#),/j) = Ex n (f,g + h) = Ex n (Ex n (f, h),g) 



and thus 



Ex(Ex(/, g),h) = Ex(f, g + h) = Ex(Ex(/, fe), g) 
Proof. Let p G dom(Ex ra (/, g + /i)), there exists m < n G N such that 
Ex n (/, 5 + /i)(p) = f((g + h)f) m (p) 

= (f(gf) h )h . . . h(f(gfy*)(p) with i 1 + ... +ik + k-l=m 
= (Ex n (/, g)hEx n (f, g)... hEx n (f, g)){p) 
= (Ex n (f,g){hEx n (f,g)) k - l ){p) 
= Ex n (Ex n (f,g),h)(p) 

By commutativity of + we get the other equality. These equalities are directly transmitted 
to Ex. □ 

This theorem is of great significance, it is a completely localized version of Church- 
Rosser property. Indeed, we will see later that confluence results are a corollary of this 
theorem. 

The following proposition states that Ex can always be extended by an independent 
partial injection. 

Proposition 2.3. Let f,g and h be partial injections such that 

f 



A\SB 



-» C&D 



and dom(h) n dom(/) = codom(/i) n codom(/) = 0. 
We have h + Ex(/, g) = Ex(/ + h,g). 

Proof. This result directly comes from the relation (f+h)g(f+h) = fgf+hgf+fgh+hgh = 
fgf as hg = gh = 0. □ 
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i 



f + r 




T 




(a <^> t)(«) 



T 



Figure 2. Representation of the Exo-composition a t 



2.4. w-permutations and Ex-composition. We call w -permutation an involutive partial 
permutation of finite domain. That means that a w-permutation is a product of disjoint 
cycles of length at most 2. 

Let a and r be disjoint u>-permutations and let / be a partial injection with dom(/) C 
dom(cr) and codom(/) C dom(r). We call the Exq- composition of a and r along / the 
partial permutation 



Note that (ct + t)* = cj + t and (/ + /*)* = / + /*, and thus, we have ((a + r)[(/ + /*)(cr + 
r)]»)* = [(a + r)(/ + /*)]> + r) = (a + r)[(/ + + r)f. So (a ^ r) 2 (x) = x. □ 



We have dom(<r «^>o t) = (dom(cr) — dom(/)) tt) (dom(r) — codom(/)). Thus, the 
Ex computation does not tell anything about elements in (dom(cr) n dom(/)) tt) (dom(r) n 
codom(/)). For such an element x in dom(<r) ndom(/), either there exists an i in dom(cr) — 

dom(/) with x being part of the computation of (a «^~>o T )(i) or there exists an n such 
that (f*rfa) n (x) = x. For those x we get some kind of orbit O x = {(f*rfo~y(x) , i £ N} 
to which we get a dual orbit for r by setting 0' x = {(/o"/*r) i ((/cr)(x)) , i G N}. By 
applying fa we get a bijective correspondence between O x and 0' x . We call double orbit 

the set O x U O x and we write D(a <~^o r) for the set of all double orbits. Let R = 

f f 
{m.in x& ouO' x , (O, O ) G 0(cr T )}- We define the full Ex-composition, written a r, 

of domain dom(<7 t) td i? and such that Vr G -R, (a <^ T ){ r ) = r - 

We can now give a consequence of theorem |2.2[ stating some kind of associativity for 
the Ex-composition. 

Proposition 2.5. Let o~,r,p be pairwise disjoint w -permutations with 
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dom(er) = A W B l+l C 
/ 



dom(r) = D W E W F 




dom(/9) = G @ H W / 



We /iai>e cr £^ (r p) 



a t^M [j + p) = (a r) 



3 



/ 9 \ f 

- [a <~~> p) <~~> t. 



(cr <^ p) r. When h = we get 



Proof. This proposition states in fact two separated results, one about Exo-composition and 
the other about double orbits. 

We have a £t^ (j p) = Ex(cr + Ex(r +p,h + h*), f ' + f* + g + g*) = Ex(Ex(cr + r + 
p,h + h*), f + /* + g + g*) by proposition Igj] and = Ex(cr + r + p, f + f* + g + g* + /i + h*) 



by theorem 2.2. We get the other equalities in the same way. 
For the equalities involving double orbits, we set 



[p £i? [j Jt> p)) 



/ 



= wya 4~^o [ T P)) ~ luJ ( T *~">o p) ~ 0((7 r) — 0((T p) 

To conclude, it suffices to show that double orbits in O3 do not depend on the order of 
composition. Indeed, such an orbit is generated by an element x such that 



x 



((/* + 2*)(t A) p)(f + g)<y) n {x) 

n 

([[(f + 9*){t + P)((h + h*)(r + P )) k *{f + g)a){x) 



i=i 



i=l 

where the i^s are of the following four shapes: 

g*phT(h*ph T ) k 'fa, f*T(h*phT) k 'fa,g*p(hTh*p) k *ga, and f*rh* p(hrh* p) k > go 

When ki = they can have the shape g*pga and f*rfa. This is enough to be able to group 

the expression by factoring a <^>o p or a <~^o t, and thus, to retrieve the expressions of 
double orbits in any order of composition. □ 

Remark 2.6. The definition of full Ex-composition by means of double orbits could seem 
like a lot of trouble. We will see in the next section that the recovered fixpoints will allow 
us to interpret loops in interaction nets. One might argue that loops do not have to be 
recovered at any cost, and if our framework cannot see them it is for the best. In fact 
there are real justifications for loops, the main point being that seeing loops is what makes 
our definition algebraically free. This freeness is really important as it can be seen as a 
separation of syntax from semantics. A detailed discussion of the need of loops in the 
context of compact-closed categories can be found in [Abr05] . 
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3. The statics of interaction nets 

We fix a countable set S, whose elements are called symbols, and a function a : S — > N, 
the arity. We will define nets atop N and in this context an integer will be called a port. 

Definition 3.1. An interaction net is an ordered pair R = (a w ,a c ) where: 

• a w is a u>-permutation. We write Pi(R) for the fixed points of a w and P(R) for the others, 
called ports of the net R. 

• a c is a partial permutation of P(R) with pointed orbits and labelled by S in such a way 
that Vo G Orbs(cr c ), |o| = a(l(o)) + 1 where I is the labelling function. 

The elements of Pi(R) are called loops and the other orbits of a w , which are necessarily 
of length 2, are called wires. The domain of a w is called the carrier of the net. We write 
P C (R) = dom(cr c ), whose elements are called cell ports, and Pf(R) = P{R) — Pc(R), whose 
elements are called free ports. 

An orbit of a c is called a cell. We write pal for the pointing function of a w . Let c be a 
cell, pal(c) is its principal port and for i < |c| the element (a l c o pal)(c) is its ith auxiliary 
port. 

Note that a port of a net is present in exactly one wire and at most one cell. 

3.1. Representation. Nets admit a very natural representation. We shall draw a cell of 
symbol A as a triangle |a^> where the principal port is the dot on the apex and auxiliary 

ports are lined up on the opposing edge. We draw free ports as points. To finish the drawing 
we add a line between any two ports connected by a wire, and draw circles for loops. 
As an example consider the net R = (cr w ,a c ) with 

a w = (1)(2 3)(4 5)(6 7)(8 9) and a c = (4 3)^(5 6 7) B 

where permutations are given by cycle decomposition and (c* ci . . . c n )s is a cell of point 
ci and symbol S. This net will have the representation 



3.2. Morphisms of nets and renaming. 

Definition 3.2. Let R = (cr w ,a c ) and R' = (a' w ,a' c ) be two interaction nets. A function 
/ : P(R) i—s- P(R') is a morphism from R to R' if and only if 

foa w = a' w of, f(P c (R))CP c (R>), 
y P eP c (R),(foa c ){p) = (a , c of){p), 

and Vo 6 0rbs(<7 c ) we have (/ o pal)(o) = (pal o f)(o) and l(o) = (I o /)(o). When / is the 
identity on Pf(R) it is said to be an internal morphism. 

Example 3.3. Consider the net: 

R = ((1 2) (3 4) (5 6) (7 8)(9 10)(11 12)(13 14), (2 3 5) A (8 9 11) A ) 
of representation: 
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4 6 



10 12 




1 



14 



13 



1 



1 



7 



and the net: 



5=((1 2)(3 4)(5 6)(7 8),(2 3 5)a(8)b) 



of representation: 



4 6 




1 



Let / be the application defined by /(l) = /(7) = /(13) = 1, /(2) = /(8) = /(14) = 2, 
/(3) = /(9) = 3, /(5) = /(ll) = 5, /(4) = /(10) = 4 and /(6) = /(12) = 6. This is a 
morphism from R to S. 

Remark 3.4. The equality f °cr w = a' w o f seems quite strong, but could in fact be deduced 
from a simple inclusion of functional graphs, / o <j w C a' w o / . Indeed, let (p,p') be in the 
graph of a' w o /, we can compute (/ o a w ){p) which by the inclusion cannot be anything else 
than p' . 

Let us detail a bit more this definition. We note that for any two partial permutations 
a and r, the equation / o a = a' o / induces that a o G Orbs(cr) is mapped to an element 
f{o) £ Orbs(a / ) such that |/(o)| is a divisor of |o|. 

In this case a loop is sent to a loop, a wire to a loop or a wire, and a cell to another 
cell. The last two equations say that the principal port of a cell is mapped to a principal 
port, and symbols are preserved. So a cell is mapped to a cell of same arity, and each port 
is mapped to the same type of port. Moreover only a wire linking free ports can be mapped 
to a loop or any kind of wire. As soon as the wire is linking one cell port the third condition 
on the morphism must send it to a wire of the same type. 

With those facts, it is natural to call renaming (resp. internal renaming) an isomor- 
phism (resp. internal isomorphism). An isomorphism class captures interaction nets as 
they are drawn on paper. On the other hand, an internal isomorphism class corresponds 
to interaction nets drawn where we have also given distinct names to free ports, hence the 
name internal. This is an important notion because the drawing is the same as 



In fact, as soon as we would like to consider nets as some kind of terms, we will have to 
consider them up to internal isomorphism. Free ports correspond to free variables, whereas 
cell ports correspond to bound variables. For example the A-term \x.{x)y is of course the 
same as Xz.(z)y but it is distinct from Xx.(x)z. 

Remark 3.5. Given the fact that nets have finite carriers we can always consider that two 
nets have disjoint carriers up to renaming. 



Whereas the drawing 



a 



is different from ^>^^ 
b a ^ \ b 
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4. Tools of the trade 
We give here the main tools that are going to be crucial to our definition of reduction. 

4.1. Gluing and cutting. 

Definition 4.1. Let R = (a w ,a c ) and R' = (cr' w ,a' c ) be two nets with disjoint carriers^] and 
let / be a partial injection of domain included in Pf(R) and codomain included in Pf(R'). 

f f 

We call gluing of R and R' along f the net R <^~> R' = (a w ^> o~' w ,o~ c + o~ c ). 
From this definitions we get the following obvious facts: 

P(R M R 1 ) = (P(R) - dom(/)) W (P(R') - codom(/)) 



P c (rMr') = P C (R)^P C {R!) 



P f (RMR') = (P / (i?)-dom(/))W(P / (i? , )-codom(/)) 

r <X> ji' = h' JL*> h 

For the special case of gluing where / = we have R R' = (a w + a' w ,a c + a' c ), we write 
this special kind of gluing R + R', it is the so-called parallel composition of the two nets. 
Fig. [3] gives a representation of gluing. 

Proposition 4.2. If R = R M R' then f = and R' = = (0, 0). // = R d» R' then 
f = and R = R' = 0. 

Proof. We will only prove the first assertion, the second being similar. It is a direct conse- 
quence of the previous facts, R' must have no cells, no free ports and no loops. The only 
net having this property is the empty net 0. D 

We can get some kind of associativity property for gluing. 

Proposition 4.3. Let R = (a w ,a c ), S = (t w ,t c ) and T = (p w ,p c ) be nets of disjoint 
carriers and let /, g and h be partial injections satisfying the diagram of proposition \2. 
with respect to ct w ,t w and p w . 

We have R «~^> (S T) = (R ^> S) T = (R T) <~t* S. 



Proof. The wire part of the equality is a restriction of proposition 2.5 and the cell part is 



the associativity of +. D 
The following corollary will often be sufficient. 

Corollary 4.4. // we have a decomposition Rq = R ^> (S T) then there exists fs,fT 
such that Rq = (R <^> S) <~^> T. 

We can use the gluing to define dually the notion of cutting a subnet of an interaction 

net. 

Definition 4.5. Let R be a net, we call cutting of R a triple R2) such that R = 

f 

R 1 R 2 . Any net R' appearing in a cutting of R is called a subnet of R, noted R' C R. 



2 Which is not a loss of generality thanks to remark 3.5 
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R! 
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Figure 3. Representation of the gluing of two interaction nets 



R\ r~-\ r~~\ r~\ 

• ••••• 

/: : : : 

• • • • 

(A) 




(B) 



Figure 4. Representation of two special cuttings: (a) a cutting of a single 
wire and (b) a cutting of a loop 



Fig. [4] gives an example of cutting. The fact that we can cut many times a wire or that 
we can divide a loop in many wires hints at the complexity behind these definitions. 

Proposition 4.6. The relation C is an ordering of nets. 



Proof. The relation C is reflexive: R = R and thus, R C R. 

It is antisymmetric: let R\ and R2 be nets such that R\ C i? 2 and R2 Q R\. We 

have R\ = R2 R'2 and R2 = R\ R\. 

So i?2 = (R2 R'2) By applying the corollary 4.4 we get R2 

R'i). and by applying the proposition 4.2 twice we get R' 2 



1x2 <r ^> 



(R'2 



9+f2 



And it is transitive: let R C S C T, then S 
T = (R <w» it") <X> S". By applying the corollary 
is to say R C T. 



/ 



4.4 



0. So i2i 
i? i?' and T - 
we have T = R (i? 



= i?2- 



5', so 

), that 
□ 



4.2. Extending morphisms by gluing. 

/ 

Proposition 4.7. If a : R ^ S is a morphism of nets, and T = S ^> S , then there exists 
a morphism a : R —> T extending a. 

Proof. It is obvious how to define the image of a cell in R into T, because a maps it to a cell 
in S and cells are preserved by gluing. So, the only thing to prove is that we can properly 
define the image of a wire in R. We consider a wire (p p') in R which is mapped to another 
wire (a{p) cu(p')) in S (the case where it is a loop is trivial as loops are also preserved by 
gluing). In T this wire has either become a loop, and thus we send, by a, p and p' to the 
loop port, or it has become a wire trough the Ex-composition: 

q — > ... — > a(p) a{p') — > ... — >• q' 

where S = (a w ,o~ c ), in which case we define a(p) = q and a(p') = q' . 

By construction, 2 is a morphism. O 
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With idn : R — ^ R being the identity function on ports, and T = R <~~> S, we simply 
write R C T for the morphism idn which we refer to as the inclusion map of R into T. 
Note that in our setting these maps are not just co-extensions of identity, this is due to our 
notion of subnets. 

Definition 4.8. We say that a : R — > S is almost injective when there exists a decompo- 

sition S = /3(R) R with (3 a renaming and (3 = a where /3 is given by the previous 
proposition. We also use the notation 5 = f3. 

Inclusion maps are the archetypal almost injective morphisms. Indeed, every almost 
injective morphism splits as a renaming followed by an inclusion map. 

4.3. Interfaces and contexts. To define reduction by using the subnet relation, it would 
be easier if we could refer implicitly to the identification function in a gluing. As an intuition, 
consider terms contexts with multiple holes, to substitute completely such contexts we could 
give a function from holes to terms and fill them accordingly. But a more natural definition 
would be to give a distinct number to each hole and to fill based on a list of terms. The 
substitution would give the first term to the first hole, and so on. The following definition 
is a direct transposition of this idea in the framework of interaction nets. 

Definition 4.9. We call interface of a net R a subset I = {p\, . . . ,p n } of Pf(R) together 
with a linear ordering, the length of the order chain p\ < ■ ■ ■ < p n is called the size. We say 
that R contains the interface /, noted I C R. An interface is canonical if it contains all the 
free ports of a net. 

Let / and I' be disjoint interfaces of the same net, we write //' the union of these subsets 
ordered by the concatenation of the two order chains. Precisely x <jji y -4=>- x </ y or 
x <r yorx£lAy£l'. 

Let / and I' be two interfaces of same size, there exists one and only order-preserving 
bijection from / to I' that we write p(I, I') and call the chord between I and V . 

We call context a pair (R, I) where I is an interface contained in the net R, it is written 

R 1 . 

Let R 1 and R' 1 be two contexts with interfaces of same size, we write 

R <^> R = R R 

In the following when we write R 1 R' 1 we implicitly assume that / and I' are of 
same size. 

We now can state commutativity of gluing directly, the proof being trivial. 

Proposition 4.10. R 1 <-~> R' 1 ' = R' 1 ' <-~> R 1 □ 

The following trivial fact asserts that any gluing can be seen as a context gluing. 

f 

Proposition 4.11. Let R R be a gluing, there exist interfaces I C R and I C R such 
that RJ^R' = R r ^ R' 1 ' . 



Proof. It suffices to take / = dom(/) with any linear ordering, and to define the only 
ordering of I' = codom(/) such that / is strictly increasing. □ 
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Corollary 4.12. R x C R 3h,R 2 ,I 2 such that R = Ri h R 2 h . 



We can now restate corollary 4.4 with interfaces: 

Corollary 4.13. For all nets R, S, T and interfaces I, J, K, L, there exists interfaces I', J' , 
K' , L' such that 

R i <w» (5 J *w T K ) L = (R 1 ' S J 'f T K> . 



5. Dynamics 

Given the previous definitions we will now present the dynamics of net. It should be 
remarked that our definition of dynamics is quite similar to the usual one: it amounts to 
finding a subnet called a redex and substituting it with another subnet. The main difference 
lies in our rigorous definition of subnets. 

Definition 5.1. Let s\ and s 2 be symbols. We call interaction rule for (si,s 2 ) a couple 
(Rr Ir - , Rp 1 ") where 



Rr 



I (b c)(a 1 h) ... (a n b n ){ci di) . . . (c m d mJ , 

y (b h ... b n ) Sl (c Cl ... Cm)s 2 ) 

and I r and I p are both canonical - comprised of all free ports - and of same size. 

Let 1Z = (R r Ir , Rp Ip ) be a rule, we call reduction by 1Z the binary relation on nets 
such that for all renaming a and (3, and for all net S with S = R 1 <~~> a(R r ) a ^ Ir ^ we set 
S^S' where S' = R 1 <~» P{R p f {Ip) . 

The net R r has the representation [^^> — • Remark that the reduction is 

defined as soon as a net contains a renaming of the redex R r . This reduction appears to be 
non-deterministic but it is only the expansion of a deterministic reduction to cope with all 
possible renamings. 

We recall now the formal definition of the main property of interaction nets and we 
wish that our definition ensures it. 

jl 

Definition 5.2. Let — > be a binary relation on a set E, we say that it is strongly confluent 
if and only if for all x,y,z £ E such that y / z and y < — x — > z and there exists t £ E 
with y — > t < — z. 

Proposition 5.3. Let R be a net and 1Z\, 1Z 2 be two interaction rules applicable on R on 
distinct redexes such that R\ i — R — > R 2 and all the ports both in R\ and R 2 are also in 
R. There exists a net R' such that R± R' - R 2 . 

Proof. For i = 1, 2, set TZi = {R r / r '\ Rp/f' 1 ). The shape of redexes allow us to assert that 
if they are distinct then they are disjoint. As R contains both a redex a\{R r) \) and a redex 
ot 2 {R r ,2)-> then we can deduce that ai{R Tt \) + 02(^,2) ^ R- More precisely we have 

R = (ax(Rr,i) + a 2 (iir,2)n {/ - l)a2{/ - 2) — Ro 1 

We get 

Rl = (Pl(Rp,l) + a 2 (#r,2)) A(/p ' l)Q2(/r ' 2) — Ro' 
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for a renaming /3i, and the same kind of expression for R2. It is straightforward to check 
that the net 

R' = (/3i(flp,i) + P2(R P ,2)) MIp ' imip ' 2) — Ro 1 
satisfies the conclusion by applying proposition |4.3[ The very existence of this net relies 
on the disjointness of the (3i(R p j) which is ensured by the hypothesis on ports contained in 
both Ri and R2. □ 

Corollary 5.4. Let C be a set of rules such that for any pair of symbols there is at most 
one rule over them. The reduction — >•= Ufce£ ^ s strongly confluent up to a renaming. 

By up to a renaming we mean that we might have to rename one of the nets in a critical 



pair before joining them. This is due to the disjointness condition in proposition 5.3 
Remark that we can always substitute one of the branch of the critical pair by another 
instance of the same rule on the same redex in such a way that this condition is ensured. 

5.1. Example. We will now give a thorough example of a net reduction using the Mul- 
tiplicative Linear Logic symbols and rules. We display representations next to the net 
definitions 

Let us consider the rule 1Z = (R r Ir , R p Ip ) where 

/ (0 3)(6 1)(7 2)(8 4)(9 5), \ 9 4^0^L 6 _ . _ . Q 
Rr = . s . J®> — <FU I r = 6<7<8<9 



(0 1 2)p(3 4 5)^ 7 sT ^7 

^ = /(10 12)(1113),\ I 3 1 -° Ip = w<11<12<13 

V U / 12 11 

Now let R be the net 

/ (0 3)(1 2)(8 4)(7 5)(6 9), \ 96^l^_^A 



\ (0 12)p(3 4 5)^(6 7 8)p J 
It can be expressed as 

/ (6 9)(7 10)(8 11)(12 13), V 0<11<12<13 ( (0 3)(16 1)(17 2)(15 4)(14 5), V^<^ 
V (6 7 8) J \ (0 1 2) p (3 4 5) J 



12 13 



2 



of Rp^: 



the latter context being a renaming of R r Ir , which we substitute with the following renaming 

(14 16)(15 17), ^ 14 < 15 < 16 < 17 17 14 




16 15 



^Nevertheless, these representations are not required to do the reduction, they are merely here to help 
the reader. 
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Thus, we get the net 



10<11<12<13 . , 14<15<16<17 



(6 9) (7 10)(8 11)(12 13), \ ' ^ f (u 16)(15 17), 

(6 7 8)® J 



which simplifies into 

( ((, 7 



(6 9)(7 8),\ ^ 



6. Interaction nets are the Ex-collapse of Axiom/Cut nets 

We introduce now a notion of nets lying between proof-nets of multiplicative linear logic 
and interaction nets. When we plug directly two interaction nets a complex process of wire 
simplification occurs. When we plug two proof-nets we only add special wires called cuts 
and we have an external notion of reduction performing such simplification. In this section 
we define nets with two kinds of wires: axioms and cuts. Those nets allow us to give a 
precise account of the folklore assertion that interaction nets are a quotient of multiplicative 
proof- nets. 



6.1. Definition and juxtaposition. 

Definition 6.1. An Axiom/Cut net, AC net for short, is a tuple R = {a a,oc,o~c) where: 

• a a and ac are w-permutations of finite domain such that dom(crc) C dom(cT4), ac has 
no fixed points and if (a b) is an orbit of ac then there exists c ^ a and d ^ b such that 
(c a) and (b d) are orbits of a a- 

We write Pi(R) for the fixed points of a a and P(R) = dom(<7A) — dom(cjc) — Pi(R). 

• a c is an element of &(P C (R)), where P C (R) Q P(R), has pointed orbits and is labelled by 
S in such a way that Vo 6 Orbs(cr c ), |o| = a(l(o)) where I is the labelling function. 

The orbits of ac, called cuts, are some kind of undirected unary cells linking orbits of a a, 
called axioms. 

We directly adapt the representation of interaction nets to AC nets by displaying a c as 
double edges. For example the AC net R = {a a, ac, a c ) with 

a A = (1 2)(3 4)(5 6),a c = (2 3),<r c = (4 5) s 

will be represented by 




We can adapt most of the previous definitions for those nets, most importantly free 
ports, interfaces and contexts. The nice thing about AC nets is that they yield a very 
simple composition. 

Definition 6.2. Let R 1 = (a A,crc,^c) and R' 1 = (ta,tc,t c ) be two contexts on AC nets 
with disjoint carriers, with I = i± > ■ ■ ■ > i n and I' = i' 1 > ■ ■ ■ > i' n . 
We call juxtaposition of R 1 and R' 1 the AC net 

R 1 <->• R' 1 = (a A + t a , a c + r c + (h i[) ... {i n i' n ), <? c + r c ) 
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The juxtaposition is from the logical point of view a generalized cut, and its interpre- 
tation in terms of permutation is exactly the definition made by Girard in |Gir87j . 

6.2. Ex-collapse. 

Proposition 6.3. Let R = (o~a, ac, a c ) be an AC net and f be a partial injection such that 
dom(crc) = dom(/) and codom(/) n dom((j J 4) = 0. 

The couple {a a ^> f ° cc ° /*; °~c); is an interaction net. 

It does not depend on f and we call it the Ex-collapse of R, noted Ex(R). 

For the definition of the Ex-composition to be correct, we have to delocalize ac to a domain 
disjoint from dom(c74). The Ex-collapse amounts to replace any maximal chain a\ — ^> 

b\ — > a,2 ■■ ■ b n -i — > a n by a chain a\ — > b\ — >■ 

"n—l Q"n 

f 

and then to compute the Ex-composition to get a\ > a n . 

Proof. Remark that for this to be an interaction net, the only property to be checked which 
is not a direct consequence of the definition of AC nets is the fact that a a f ° o"c ° / 



is a u>-permutation, but this comes directly from proposition 2.4 

This remark asserts that / as only a shallow role in the definition. Indeed, every time 
/ is applied in the Ex-composition, it is followed by an application of its inverse. Moreover, 
for partial injections ax, n, . . . , o~ n , T n , we have 

o- n ° r n o • • • o ox o n = a n o f* o f n o r n o g* o g n o ■ ■ ■ o g\ o g x o a x o f\ o f x o T \ 

for every partial injections fx,9x, ■ ■ ■ ,fn,9n such that dom(/j) C codom(rj) n dom(crj) and 
dom(gi) C codom(<Tj) fl dom(rj) □ 

Proposition 6.4. For each interaction net R there exists a unique AC net R' of the form 
((7a,0, a c ) such that Ex(R') = R. R' is said to be cutfree. 

Proof. If R = (t w ,t c ) we only have to take R' = (r w , 0, r c ). Uniqueness comes from the fact 

that a = a. O 

Definition 6.5. Let R and R' be two AC nets, we say that R and R' are Ex-equivalent, 
noted R ~ R' when Ex(R) = Ex(R'). 

We have an obvious correspondence between juxtaposition and gluing. 
Proposition 6.6. Ex(ii / <-> R! 1 ') = Ex(R) 1 <^ Ex(R') 1 ' 

Proof. We set R = (a a, o- c , cr c ), R' = (t a , t c , t c ). 

If we write / (resp. g) the partial injection used in the computation of Ex{R) (resp. 
Ex(R')), then we can find a partial injection h such that the partial injection used in the 

T I' 

computation of Ex(R <-> R' ) is / + g + h. Moreover, we can decompose h = i + i in such 
a way that h(p(I, I') + p(J, I')*)h* = ip(I, I')i* + i'p(I, I'fi'*. 
The main part of the proposition amounts to proving that 

(o-a + r A ) (fact + grcg* + i P (I, + i'p(I, = 

{o-a ^ fee J ) K T A grcg ) 



This equality can be deduced as in the proof of proposition 2.5 The fact that we have extra 



partial injections f,g,i and i' does not add any new difficulty. □ 
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Therefore we can claim that 

Interaction nets are the quotient of AC nets by ~. 



7. Reduction by means of double pushout 



7.1. Motivation. In this section we briefly recall the double pushout approach of graph 
rewriting and why we seek such kind of approach in our context. 

We consider as rule of graph rewriting a diagram R <— I — > S in Graph, the category of 
graphs. The graph / corresponds to some sort of common interface between R and S. As 
soon as we have a morphism R — > G we say that G contains the redex of the rule, and we 
can construct in Graph a graph G' such that we have a pushout 

R < / 

po 

G < G' 



A precise definition of pushout will be given later, but for now let us say that it corresponds 
to extracting R from the graph G while leaving the common part /. We can construct 
another pushout in the other direction, thus obtaining the diagram: 




The graph G r is then called the reduct of G by the rule. It is constructed by taking the 
graph G' and replacing by S the part left empty by the removing of R in G, and then 
applying some kind of gluing operation along the interface /. 

This approach, initiated in the seminal paper [EPS73J, leads to a definition of graph 
reduction which is at the same time intuitive and algebraically rigorous. It is quite natural 
to try to define it for interaction nets. Indeed, cutting and gluing are explicit operations in 
our framework. 

Note that such kind of approach for interaction nets is defined in the paper |Ban95| . 
but it relies on an embedding of interaction nets in hypergraphs followed by an embedding 
of hypergraphs in bipartite graphs. In our setting, we can directly state the approach while 
staying in the realm of interaction nets. 
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7.2. Pushouts in IN. Let IN be the category whose objects are interaction nets and mor- 

phisms are morphisms of interaction nets. 

/ 

In this section we write R ^ S to say that / is an almost injective morphism from R 
to S. We write R — ■» S when / is a bijection. 
We recall here the definition of pushouts. 

f R f 

Definition 7.1. Let C be a category. A commutative square * , is called a 



>- , 



/ 
T 9' 



pushout whenever for any other commutative square g ~* g, there exists a unique 

\ s 

h rpi h! 

T A- T' such that ug = h and ■ug'' = /i'. 

We write po in the center of a square to state that it is a pushout. 

The following lemma asserts that pushouts are stable under iso of their branches, i.e. 
that we can replace every middle object of the pushout square with an isomorphic one. It 
will be useful to replace almost injective morphisms by inclusion maps. 

f. R . f 



Lemma 7.2. Let g pg^** g' ^ e a P us hout square and S — > S be an iso. We also have 



<? n' 



h R r 

7 \ 

the following pushout ~ . □ 

b po b 

K T 9 



Lemma 7.3. We have the pushout 



R 

-2 £ 



R S po R ^ & 

R^iS+S) 



whenever b and S' are disjoint and dom(/) n dom(g) = 0. 
Proof. Let 
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R 

R <^ S R S' 

h t h' 

be another commutative square. We will build a morphism u from R (S + S') to T. Let p 
be a port belonging to P{R) — dom(/) — dom(g) or P(S) — codom(/) we just set u(p) = h(p). 
Similarly we define u(p) = h'(p) when p belongs to -P(S') — codom(<7). Now, if we take a 

p G dom(/) we can properly define its image p' in R S. We set u(p) = h(p') = h'{p). 
We proceed in the same way for a p G dom(g). 

By construction u is unique and satisfies the required universal property of pushouts. □ 

By using the two previous lemmas and the definition of almost injective morphisms, we 
get the following corollary. 

a P 

Corollary 7.4. Let S ^ R > S' be a diagram in IN with S,S' disjoint. By definition of 
almost injectivity we have S = a(R) S and S' = fi{R) 5". 
7/dom(/5) n dom(<7/3) = then we have the following diagram: 




Remark 7.5. The disjointness of S and S' in the previous lemma is not mandatory as 
pushouts are only defined up to isomorphism. 



R 



Lemma 7.6 (Complement). If we have * then there exists S' and R c — > S' such 



> 



b po b 



Proof. First, we show that we only need to prove the result when all arrows are inclu- 
sion maps. Indeed, by applying the definition of almost injectivity we get the following 
commutative diagram: 
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a(R) 



0a(R) 




If we could complete it with a pushout on the right, as in 




we would get the main pushout 

So, let us prove it in the case where R C S C T. By definition, we hav e S = R i? 

and T = S ^> S. Thus, we have T = (R 

and /2 such that T 
lemma 17.31 



/ 



R) ^> S. By corollary 



(i2^±?S). We set 5' 



it 



4.13 



/ 



there exists /i 



S. We can conclude by applying 

□ 



7.3. Generalized reduction. 

Definition 7.7. Let R r < — 3 Ri c — > R p be a diagram in IN. By definition of almost 

injectivity we have R r = a r (Ri) R r and Rp = a p {Ri) <^ R . 

We say that this diagram is a generalized rule when dom(/ r 5v) = dom(/ p 5^). 



Theorem 7.8. If R r 



R 



t — > Sp is a generalized rule and we have a morphism R r =— > R 



then we can do the following completion 

R r < 



Ri <r 



On 



R 



po 

D 



po 



S c- 



Rr. 



T is called the reduct of R by the generalized rule. 



Proof. The proof is just a chaining of the two lemmas 7.6 and 7.4 The condition of equality 



of domain in the definition of generalized rule ensures that the domain of the gluing function 
in Ri S, being disjoint from the domain of the gluing function in Ri «— >■ R r is also disjoint 
from the gluing function in Ri R p . Thus, the lemma 7.4 is applicable. D 
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Proposition 7.9. This reduction is a generalization of the one defined in section^ 

Proof. Indeed let (R r Ir , Rp Ip ) be an interaction rule and set I r = d\ > ■ ■ ■ > d m . We define 
a net 

Ri = ((dl fl)...(d m /m),0) 

with m new free ports /j. 

fr 

We directly have an inclusion Ri C R r = i?j <-A R r and by definition of an interaction 
rule, we have a bijection between I r and I p which can be lifted to an almost injective 

morphism Ri ^-4 R p = cT p (Ri) R p . 

a p 

The diagram R r ~D R4 c — > R p is a generalized rule as dom(/ r ) = dom(/ p a p ) = 

{/l> • ■ , fm}- 

Now let R r R be an almost injective morphism, we have R = f3(R r ) R. We are 
going to consider R and R p disjoint, if it is not the case we just need to add an explicit 

~ g' 

renaming to the following computations. By construction, we get S = {3(Ri) ^> R, where 

g' is the restriction of g to (3(Ri), and we have T = R^ 9 p (R + R p ) which is the result 
of the previously defined reduction. □ 



8. IMPLEMENTATION 

8.1. Introduction. We detail here part of our implementation in OCaml of an interaction 
net tool. This implementation follows closely the mathematical definitions given earlier. By 
doing so we hope that we make apparent the idea that this framework, even though involving 
mathematical objects, can be seen as a natural syntax for implementing interaction nets. 

A self-contained net reducer has been extracted from our implementation and is pre- 
sented in Appendix [Aj For the sake of briefness we have removed from this code subroutines 
involving renaming of net. 

8.2. Data structures. The easiest way to represent partial permutation is to define them 
as their list of orbits. The fact that orbits are disjoint and make sense will in fact be ensured 
by the validity of our operations. 

We define two types 

type 'a lorbit = { cycle : int list ; label : 'a } 
type 'a lperm = 'a lorbit list 

for representing labelled permutation, and we only need to set a dummy label to represent 
an unlabelled permutation. 

Therefore, the type for representing a net is 

type cell_labcl = { symbol : symbol; pal : int } 

type net = { cells : cell_label lperm; wires : unit lpcrm } 

Following the previous definitions, we define interface, context and rule 

type interface = int list 

type context = net * interface 

type rule = { symbols : symbol * symbol; pattern : context } 
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8.3. Algorithms. To have a full implementation we need to be able to find when a reduc- 
tion rule could be applied, and then to apply it. Nevertheless the only changing part between 
this framework and the usual one is the use of Ex-composition to define the reduction. 

We recall here the standard procedure for reducing nets, next to each step we give the 
corresponding functions in the code found in Appendix |A} 

(1) Extract the list of active wires, i.e. wires linking two principal ports 
[net_get_active_wires] 

(2) Filter out the active wires corresponding to a rule redex 
[net _appliable_rul.es] 

(3) For one of these matches, cut out the redex and replace it with the rule pattern 
[net_remove_cell,net_remove_wire,net_apply_rule] 

The main difference here, is that our replacement of the pattern relies on a net gluing 
[net_glue], which in turns relies on an Ex-composition [perm_excomp]. 



Algorithm 1 Computation of a w r w for o~ w ,t w being w-permutations 

orbits = a w + r w 
for p G dom(/) do 
P' = f(p) 

w = orbit containing p in orbits 
w' = orbit containing p' in orbits 
orbits = orbits — [w, w'] 
if w = w' then 

orbits = [min(p,p')] :: orbits 
else 

0, q) = w 
(p',q')=w' 
orbits = [q,q'] :: orbits 
end if 
end for 
return orbits 



A method for computing a w ^> t w can be found in Algorithm 1. This algorithm 
amounts to concatenation of orbits from a w and t w by removing ports that are part of 
dom(/) U codom(/). If we consider that every operations used on permutations are linear, 
as it the case with lists, its complexity is in 0(|dom(/)| (|dom(cr_,)| + |dom(r_,)|)). Note that 
in most cases |dom(/)| is small compared to |dom(cr w )| + |dom(r_,)| because of the local 
aspect of reduction rules in interaction nets. 

8.4. Extensions. Our full interaction net too__ deals with some common extensions of 
interaction nets. 

To be able to handle sharing graphs, in the Abadi, Gonthier and Levy flavour [AGL92 
we need to add parameters to cells, the so-called levels. These parameters are both used to 
guard the applicability of a rule and add dependencies on the redex parameters inside the 
rule pattern. Thus, we extend the previous types with 



available in a preliminary version at the address 
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type 'a cell_label = { symbol : symbol ; pal : int ; parameter :' a} 
type 'a rule = { symbols : symbol * symbol; 

pattern : 'a * 'a — > 'a context; 

guard : 'a * 'a — > bool } 

Another common extension is found in differential interaction nets, presented in [ER05J, 
which handles not only nets but formal sum of nets. Concerning the rules it amounts to 
multiple patterns, therefore we only need to adapt the previous type of pattern to 

pattern : 'a * 'a — > 'a context list 

We would like to emphasise on the fact that these extensions do not imply complex 
changes to the code presented in Appendix [Aj Indeed, our framework presented here for 
vanilla interaction net is quite flexible and it could serve as a basis for a rigorous study of 
extensions of interaction nets. 

Conclusion 

Throughout this paper we have developed a syntactical framework for dealing with 
interaction nets while still being rigorous. Some specific extensions of this framework - for 
example the definition of paths in nets, their reduction and its strong confluence - can be 
found in |3Ffi9] . 

At this point, it is quite natural to ask about semantics. So far no general notion of 
denotational semantics for interaction nets can be found in the literature. The closest exam- 
ples are either based on geometry of interaction [Laf97, dF08] or experiments [Maz07], and 
all treat of specific cases (interaction combinators or differential interaction nets). Building 
on this framework, the author has a proposal which will be presented in a further paper. 
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Appendix A. A lightweight interaction net reducer in OCaml 

type symbol = string 

type 'a lorbit = { cycle : int list ; label : 'a } 

type 'a lperm = 'a lorbit list 

type cell_label = { symbol : symbol ; pal : int } 
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type net = { cells : cell_label lorbit list ; wires : unit lperm } 

type port = FreePort of int | CellPort of cell_label lorbit * int 

type interface = int list 

type context = net * interface 

type rule = { symbols : symbol * symbol; pattern : context } 

(* Utility functions for handling orbits *) 
let cycle 1 = (List.tl l)@[List.hd 1] 
let rec cycle_to e 1 = 

if List.hd 1 = e then 1 else cyclc_to e (cycle 1) 
let rec index 1 p = match 1 with 

] — > raise Not_found 
hd::tl -> if hd = p then else l+(index tl p) 
let rec filter_opt 1 = 
match 1 with 

[] -> [] 
| None : : 1 -> filter.opt 1 
| Some a : : 1 — > a::(filter_opt 1) 
let list diff 11 12 = List, filter (fun x — > not (List . mem x 12)) 

(* Get the orbit in p containing an element e 

* This function returns a couple (o, p') 

* where o is the orbit and p' is the remaining permutation *) 
let lperm_get_orbit_split e p = 

let rec laux acc e p = 
match p with 

] — > raise Not_found 
o : : o 1 — > if List. mem e o . c y c 1 e 
then (o , acc@ol ) 
else laux (o::acc) e ol 

in laux e p 

(* Get optionally the orbit containing e in p * ) 
let lperm_get _orbit e p = try 

let o = fst ( lperm_get_orbit_split e p) in Some o 
with Failure _ — > None 

(* Get the element after e along its orbit in the permutation p *) 
let lperm_next e p = 

let (o,_) = lperm_get_orbit_split e p in 
List.hd (cycle (cycle_to e o. cycle)) 

(* Get a new permutation p' from permutation p by 

* fusing the orbit oa containing a and the orbit ob 

* containing b. This is done by inserting ob inside oa in 

* such a way that p ' ( a) = b. In case oa = ob it adds a fixpoint. 
let lperm_fuse_orbits (p:'a lperm) (a:int) (b:int) = 

let (oa, ola) = lp c r m _ge t _o r b i t _sp li t a p in 
if List .mem b oa. cycle 

then { cycle = [min a b]; label=oa . label } : : ola 
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else let (ob, nol) = 1 pe r m _g e t _or bi t _s pli t b ola in 

{ cycle = [lperm_next a p; lperm_next b p]; label=oa . label } : : nol 

(* Disjoint sum of permutations pl and p2 *) 
let lperm_sum pi p2 = pi @ p2 

(* Compute the ex— composition of s and t along f by 
* fusing orbits in the union of s and t along f *) 
let perm_excomp s t f = 

let rec fusc_orbits p 1 = match 1 with 

[] -> P 

(a,b)::tl — > fuse_orbits ( lperm _f us e .or b i t s p a b) tl in 
fuse.orbits (s@t) f 

(* Net gluing nl <— /— > n2 * ) 

let net_glue nl n2 f = { c e 1 1 s=lperm_sum nl. cells n2. cells; 

wires=perm_excomp nl . wires n2 . wires f } 
let net.sum nl n2 = net_glue nl n2 I 
let coord il i2 = List, combine il i2 
(* context gluing nl'il <—> n2"i2 *) 

let context_glue (nl,il) (n2,i2) = net_glue nl n2 (coord il i2) 

(* Discriminate a given port p in the net n *) 
let net_get_port n p = 

match lperm_get_orbit p n. cells with 

Some c — > let cycle = cycle_to c. label. pal c . cycle in 
CellPort(c, index cycle p) 
| None — > FreePort p 

(* Predicate asserting the fact that w is an active wire in n *) 
let n e t _ w i r e _is _ac t i ve n w = match w. cycle with 
[ pl ; p2 ] -> begin 

match ( net -get _port n pl , net_get_port n p2) with 
(CellPort (cl , _) , CellPort (c2 , _)) -> 

pl = cl. label. pal && p2 = c2. label. pal 
_ — > false 

end 

_ — > false 

let net_get_active_wires n = List, filter ( ne t _ w i r e _i s _ac t i v e n) n. wires 

(* Extract the cell containing the port p from the net n *) 
let net_remove_cell n p = 

let (c,nc) = lperm_get_orbit_split p n. cells in 
let nw = List, filter 

(fun x — > list_diff c . cycle x. cycle <> [] ) n. wires in 
(c, { cells=nc; wires=nw }) 
(* Extract the wire pl — p2 from the net n * ) 
let net_remove_wire n pl p2 = 
let nw = List, filter 

(fun w — > list _diff w. cycle [pl;p2] <> []) n. wires in 
{ cells=n. cells ; wires=nw } 
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(* Apply a rule in n by removing the redex containing the active 

* wire pi — p2 and replacing it with ctx *) 
let net_apply_rule n (pl,p2,ctx) = 

let (cl,nl) = net .remove _cell n pi in 
let (c2,n2) = net .remove _cell nl p2 in 

let n3 = net _remove_wire n2 cl . label . pal c2. label, pal in 

let i = ( list diff cl. cycle [pi ] )@( list _diff c2 . cycle [p2]) in 

context_glue (n3,i) ctx 

(* Take a net n and a list of rules rl and return a sublist 

* of rules having a matching redex in n *) 
let net_appliable_rules n rl = 

let law = ne t _ge t _ac t i ve _wi r e s n in 
let matching_rule (sl,s2) w = 
match w. cycle with 
I [pl;p2] -> begin 

match ( net -get _port n pi, net_get_port n p2) with 
| (CellPort (cl , _) , CellPort (c2 ,_))-> begin 

match ( cl . label . symbol , c2 . 1 abel . symbol ) with 

csl , cs2 when csl = si &fe cs2 = s2 — > Some (pi, p2) 
csl , cs2 when csl = s2 &fe cs2 = si — > Some (p2, pi) 
_ -> None 
end 
_ -> None 
end 
_ — > None in 
let res r = List, map 

(fun (pl,p2) — > (pi , p2 , r . pattern ) ) 

(filter_opt (List. map ( matching_rule r . symbols ) law)) 
in List . concat (List. map res rl) 

(* Take a net n and a list of rules rl and return an optional 

* reduct *) 

let net_reduce n rl = 

let res = ne t _app li ab le _r u le s n rl in 
match res with 

instance::. — > Some ( net _apply _r ule n instance) 
_ -> None 
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